﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class repVentasXMes
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Dim capanegocios As New ReservaBL

            'Invocamos al método ListarPaises definido previamente en la clase
            ddlAño.DataSource = capanegocios.ListarAñosReservas
            ddlAño.DataValueField = "AÑO"
            ddlAño.DataTextField = "AÑO"
            ddlAño.DataBind()

        End If

    End Sub

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReporte.Click
        Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repVentasXMes.rpt"))
        'Instanciamos la clase
        Dim capanegocios As New ReservaBL
        'Instanciamos la entidad 
        Dim objeto As New BE.ReservaBE
        'Llenamos la propiedad que nos interesa 
        objeto.año = ddlAño.SelectedItem.Value

        'Establecemos el origen de datos del reporte
        reporte.SetDataSource(capanegocios.VentasxMes(objeto).Tables("VentasxMes"))
        'Establecemos el reporte a mostrar en el visor
        ' crvVentasxMes.ReportSource = reporte
        'crvVentasxMes.RefreshReport()
        'Liberamos recursos
        capanegocios = Nothing
        objeto = Nothing
    End Sub
End Class
